home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 05 Programming / RS232.ARC / %cdGETS.C < prev    next >
Text File  |  2019-04-13  |  2KB  |  108 lines
  1. /*
  2.     ═GETS.C
  3.  
  4.     TIME ESTIMATE FORMULA IS:
  5.  
  6.                    TIC = █ ═INUTES * 70 ▌
  7.  
  8.     WHERE TIC IS THE ERROR VALUE TO ALLOW FOR TIME-OUTS
  9.     AND ═INUTES IS THE TOTAL TIME IN MINUTES TO ALLOW USER
  10.     TO HAVE IDLE.
  11.  
  12.     STRñIN(STR,MODE,MAX,MAXTIME)
  13.     CHAR STR[];
  14.     UNSIGNED MODE,   0 TRUE ASCII 1 PETASCII
  15.              MAX,    NUMBER OF CHARACTERS 
  16.              MAXTIME;
  17.  
  18.     MAXTIME IS IN MINUTES RANGE 1..3 
  19.     ╟╧ ╬╧ ╚╔╟╚┼╥ ╘╚┴╬ 3 DECIMAL ╧╥ ┼╠╙┼!
  20. */
  21.  
  22. #INCLUDE <STDIO.H>
  23.  
  24. #INCLUDE <DEFN.H>
  25.  
  26. #INCLUDE <TERM.H>
  27.  
  28.  
  29. EXTERN CHAR ═Oñ╔NKEY();
  30. EXTERN CHAR INKEY();
  31.  
  32.  
  33.  
  34.  
  35. CHAR ═O╟ET╦EY(MODE)
  36. █
  37.     CHAR CH=0;
  38.     CHAR CH2=0;
  39.     CH=═Oñ╔NKEY(MODE);
  40.     IF ( ( (CH2=INKEY()) ╬╧╘ñ┼╤╒┴╠ ┼╙├) ┴╬─ (CH2) )
  41.         CH=CH2;
  42.     PUTCHAR('ñ');
  43.     PUTCHAR(0X9D);
  44.     RETURN CH;
  45. ▌
  46.  
  47.  
  48.  
  49.  
  50. CHAR ECHO(MODE)
  51. █
  52.     CHAR CH=0;
  53.     CH = ═O╟ET╦EY(MODE);
  54.     IF ( (CH ╬╧╘ñ┼╤╒┴╠ '\N') ┴╬─ (CH) )
  55.         █
  56.             PUTCHAR(CH);
  57.             ═OñPUTC(CH,MODE);
  58.         ▌
  59.     ELSE IF (CH ╔╙ñ┼╤╒┴╠ '\N')
  60.           █
  61.             PUTCHAR(' ');
  62.             PUTCHAR(CH);
  63.             ═OñPUTC(' ',MODE);
  64.             ═OñPUTC(CH,MODE);
  65.           ▌
  66.     RETURN CH;
  67. ▌
  68.  
  69.  
  70.  
  71.  
  72. UNSIGNED ═GETS(STR,MODE,MAX,MAXTIME)
  73. CHAR STR[];
  74. UNSIGNED MODE;
  75. UNSIGNED MAX;
  76. UNSIGNED MAXTIME;
  77. █
  78.     CHAR CHIN;  
  79.     UNSIGNED COUNT=0;
  80.     UNSIGNED ERR=0;
  81.     UNSIGNED MAXERRS;
  82.     MAXERRS = ( (MAXTIME * 70) * 256);
  83.     WHILE( (COUNT<MAX) ┴╬─ (ERR<MAXERRS)  )
  84.         █
  85.             CHIN = ECHO(MODE);
  86.             SWITCH(CHIN)
  87.             █
  88.                 CASE 0X00 : ERR++; BREAK;
  89.                 CASE 0X14 : ERR=0;
  90.                             IF (COUNT)
  91.                             █  COUNT--;    
  92.                                STR[COUNT]=╬╒╠╠; 
  93.                             ▌ BREAK; 
  94.                 CASE 0X0D : ERR=0;
  95.                             MAX=COUNT; BREAK;
  96.                 DEFAULT   : ERR=0; STR[COUNT++]=CHIN;
  97.             ▌
  98.             STR[COUNT]= ╬╒╠╠;
  99.             IF (INKEY() ╔╙ñ┼╤╒┴╠ ┼╙├)
  100.                 RETURN COUNT;
  101.         ▌
  102.     IF (ERR)
  103.         RETURN ┼╧╞;
  104.     RETURN COUNT;
  105. ▌
  106.  
  107.  
  108.